home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 1 / 01 / e-compiler / e-compiler.ampk / E-Compiler / Sources / Other / Avail.e next >
Encoding:
Text File  |  1995-06-01  |  522 b   |  21 lines
  1. /* Avail replacement */
  2. /* By EA van Breemen */
  3.  
  4. PROC main()
  5. DEF chip,fast,largest_chip,largest_fast,largest_total
  6.  
  7. chip:=AvailMem($2)
  8. fast:=AvailMem($4)
  9. largest_chip:=AvailMem($20002)
  10. largest_fast:=AvailMem($20004)
  11. largest_total:=IF largest_fast>largest_chip THEN largest_fast ELSE largest_chip
  12.  
  13. WriteF('Type  Available      Largest\n')
  14. WriteF('chip  \d[9]    \d[9]\n',chip,largest_chip)
  15. IF fast
  16.     WriteF('fast  \d[9]    \d[9]\n',fast,largest_fast)
  17.     WriteF('total \d[9]    \d[9]\n',chip+fast,largest_total)
  18. ENDIF
  19.  
  20. ENDPROC
  21.